VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.UserControl Picker 
   ClientHeight    =   405
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   1590
   ScaleHeight     =   405
   ScaleWidth      =   1590
   Begin MSComCtl2.DTPicker DTPicker1 
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   1575
      _ExtentX        =   2778
      _ExtentY        =   661
      _Version        =   393216
      CheckBox        =   -1  'True
      Format          =   22740993
      CurrentDate     =   39545
   End
End
Attribute VB_Name = "Picker"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'  Copyright (c) 2008, x-port.net ltd.
'
'  All rights reserved.
'
'  Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:
'
'      * Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.
'      * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution.
'      * Neither the name of the x-port.net ltd. nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission.
'
'  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
'  "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
'  LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
'  A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
'  CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
'  EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
'  PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
'  PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
'  LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
'  NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
'  SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
'
'   Purpose: Fix required due to Microsoft KB article Q259460
'   BUG: Date Time Picker Marked Unsafe for Scripting
'       http://support.microsoft.com/kb/259460
'
' $Id$
'

Implements IObjectSafety

'Default Property Values:
Const m_def_BackColor = 0
Const m_def_ForeColor = 0
Const m_def_BackStyle = 0
Const m_def_BorderStyle = 0
Const m_def_ScaleWidth = 0
Const m_def_ScaleTop = 0
Const m_def_ScaleMode = 0
Const m_def_ScaleLeft = 0
Const m_def_ScaleHeight = 0
Const m_def_RightToLeft = 0
Const m_def_PaletteMode = 0
Const m_def_MaskColor = 0
Const m_def_hWnd = 0
Const m_def_HitBehavior = 0
Const m_def_hDC = 0
Const m_def_HasDC = 0
Const m_def_FontUnderline = 0
Const m_def_FontTransparent = 0
Const m_def_FontStrikethru = 0
Const m_def_FontSize = 0
Const m_def_FontName = ""
Const m_def_FontItalic = 0
Const m_def_FontBold = 0
Const m_def_FillStyle = 0
Const m_def_FillColor = 0
Const m_def_DrawWidth = 0
Const m_def_DrawStyle = 0
Const m_def_DrawMode = 0
Const m_def_CurrentY = 0
Const m_def_CurrentX = 0
Const m_def_ContainerHwnd = 0
Const m_def_ClipControls = 0
Const m_def_ClipBehavior = 0
Const m_def_AutoRedraw = 0
Const m_def_Appearance = 0
'Property Variables:
Dim m_BackColor As Long
Dim m_ForeColor As Long
Dim m_BackStyle As Integer
Dim m_BorderStyle As Integer
Dim m_ScaleWidth As Single
Dim m_ScaleTop As Single
Dim m_ScaleMode As Integer
Dim m_ScaleLeft As Single
Dim m_ScaleHeight As Single
Dim m_RightToLeft As Boolean
Dim m_Picture As Picture
Dim m_PaletteMode As Integer
Dim m_Palette As Picture
Dim m_MaskPicture As Picture
Dim m_MaskColor As Long
Dim m_Image As Picture
Dim m_HyperLink As HyperLink
Dim m_hWnd As Long
Dim m_HitBehavior As Integer
Dim m_hDC As Long
Dim m_HasDC As Boolean
Dim m_FontUnderline As Boolean
Dim m_FontTransparent As Boolean
Dim m_FontStrikethru As Boolean
Dim m_FontSize As Single
Dim m_FontName As String
Dim m_FontItalic As Boolean
Dim m_FontBold As Boolean
Dim m_FillStyle As Integer
Dim m_FillColor As Long
Dim m_DrawWidth As Integer
Dim m_DrawStyle As Integer
Dim m_DrawMode As Integer
Dim m_DataMembers As DataMembers
Dim m_CurrentY As Single
Dim m_CurrentX As Single
Dim m_Controls As Object
Dim m_ContainerHwnd As Long
Dim m_ClipControls As Boolean
Dim m_ClipBehavior As Integer
Dim m_AutoRedraw As Boolean
Dim m_Appearance As Integer
Dim m_ActiveControl As Control
'Event Declarations:
Event Click() 'MappingInfo=DTPicker1,DTPicker1,-1,Click
Attribute Click.VB_Description = "Occurs when the user presses and then releases a mouse button over an object."
Event DblClick() 'MappingInfo=DTPicker1,DTPicker1,-1,DblClick
Attribute DblClick.VB_Description = "Occurs when you press and release a mouse button and then press and release it again over an object."
Event KeyDown(KeyCode As Integer, Shift As Integer) 'MappingInfo=DTPicker1,DTPicker1,-1,KeyDown
Attribute KeyDown.VB_Description = "Occurs when the user presses a key while an object has the focus."
Event KeyPress(KeyAscii As Integer) 'MappingInfo=DTPicker1,DTPicker1,-1,KeyPress
Attribute KeyPress.VB_Description = "Occurs when the user presses and releases an ANSI key."
Event KeyUp(KeyCode As Integer, Shift As Integer) 'MappingInfo=DTPicker1,DTPicker1,-1,KeyUp
Attribute KeyUp.VB_Description = "Occurs when the user releases a key while an object has the focus."
Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 'MappingInfo=DTPicker1,DTPicker1,-1,MouseDown
Attribute MouseDown.VB_Description = "Occurs when the user presses the mouse button while the mousepointer is over an object."
Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'MappingInfo=DTPicker1,DTPicker1,-1,MouseMove
Attribute MouseMove.VB_Description = "Occurs when the user moves the mousepointer over an object."
Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 'MappingInfo=DTPicker1,DTPicker1,-1,MouseUp
Attribute MouseUp.VB_Description = "Occurs when the user releases the mouse button while the mousepointer is over an object."
Event WriteProperties(PropBag As PropertyBag)
Attribute WriteProperties.VB_Description = "Occurs when a user control or user document is asked to write its data to a file."
Event Validate(Cancel As Boolean) 'MappingInfo=DTPicker1,DTPicker1,-1,Validate
Attribute Validate.VB_Description = "Occurs when a control loses focus to a control that causes validation."
Event Show()
Attribute Show.VB_Description = "Occurs when the control's Visible property changes to True."
Event Resize()
Attribute Resize.VB_Description = "Occurs when a form is first displayed or the size of an object changes."
Event ReadProperties(PropBag As PropertyBag)
Attribute ReadProperties.VB_Description = "Occurs when a user control or user document is asked to read its data from a file."
Event Paint()
Attribute Paint.VB_Description = "Occurs when any part of a form or PictureBox control is moved, enlarged, or exposed."
Event OLEStartDrag(Data As DataObject, AllowedEffects As Long) 'MappingInfo=DTPicker1,DTPicker1,-1,OLEStartDrag
Attribute OLEStartDrag.VB_Description = "OLEStartDrag event"
Event OLESetData(Data As DataObject, DataFormat As Integer) 'MappingInfo=DTPicker1,DTPicker1,-1,OLESetData
Attribute OLESetData.VB_Description = "OLESetData event"
Event OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean) 'MappingInfo=DTPicker1,DTPicker1,-1,OLEGiveFeedback
Attribute OLEGiveFeedback.VB_Description = "OLEGiveFeedback event"
Event OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) 'MappingInfo=DTPicker1,DTPicker1,-1,OLEDragOver
Attribute OLEDragOver.VB_Description = "OLEDragOver event"
Event OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) 'MappingInfo=DTPicker1,DTPicker1,-1,OLEDragDrop
Attribute OLEDragDrop.VB_Description = "OLEDragDrop event"
Event OLECompleteDrag(Effect As Long) 'MappingInfo=DTPicker1,DTPicker1,-1,OLECompleteDrag
Attribute OLECompleteDrag.VB_Description = "OLECompleteDrag event"
Event InitProperties()
Attribute InitProperties.VB_Description = "Occurs the first time a user control or user document is created."
Event HitTest(X As Single, Y As Single, HitResult As Integer)
Attribute HitTest.VB_Description = "Occurs in a windowless user control in response to mouse activity."
Event Hide()
Attribute Hide.VB_Description = "Occurs when the control's Visible property changes to False."
Event GetDataMember(DataMember As String, Data As Object)
Attribute GetDataMember.VB_Description = "Occurs when a data consumer is asking this data source for one of it's data members."
Event FormatSize(ByVal CallbackField As String, Size As Integer) 'MappingInfo=DTPicker1,DTPicker1,-1,FormatSize
Attribute FormatSize.VB_Description = "Occurs when the control needs to know the maximum allowable size of a callback field."
Event DropDown() 'MappingInfo=DTPicker1,DTPicker1,-1,DropDown
Attribute DropDown.VB_Description = "Occurs when the dropdown calendar is about to drop down."
Event CloseUp() 'MappingInfo=DTPicker1,DTPicker1,-1,CloseUp
Attribute CloseUp.VB_Description = "Occurs when the user is finished selecting a date from the dropdown calendar."
Event Change() 'MappingInfo=DTPicker1,DTPicker1,-1,Change
Attribute Change.VB_Description = "Occurs when the user selects a new date or changes a date in the edit portion of the control."
Event CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date) 'MappingInfo=DTPicker1,DTPicker1,-1,CallbackKeyDown
Attribute CallbackKeyDown.VB_Description = "Occurs when the user presses a key when the insertion point is over a callback field."
Event AsyncReadProgress(AsyncProp As AsyncProperty)
Attribute AsyncReadProgress.VB_Description = "Occurs when more data is available as a result of the AsyncReadProgress method."
Event AsyncReadComplete(AsyncProp As AsyncProperty)
Attribute AsyncReadComplete.VB_Description = "Occurs when all of the data is available as a result of the AsyncRead method."



'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=8,0,0,0
Public Property Get BackColor() As Long
Attribute BackColor.VB_Description = "Returns/sets the background color used to display text and graphics in an object."
    BackColor = m_BackColor
End Property

Public Property Let BackColor(ByVal New_BackColor As Long)
    m_BackColor = New_BackColor
    PropertyChanged "BackColor"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=8,0,0,0
Public Property Get ForeColor() As Long
Attribute ForeColor.VB_Description = "Returns/sets the foreground color used to display text and graphics in an object."
    ForeColor = m_ForeColor
End Property

Public Property Let ForeColor(ByVal New_ForeColor As Long)
    m_ForeColor = New_ForeColor
    PropertyChanged "ForeColor"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,Enabled
Public Property Get Enabled() As Boolean
Attribute Enabled.VB_Description = "Returns/sets a value that determines whether an object can respond to user-generated events."
    Enabled = DTPicker1.Enabled
End Property

Public Property Let Enabled(ByVal New_Enabled As Boolean)
    DTPicker1.Enabled() = New_Enabled
    PropertyChanged "Enabled"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,Font
Public Property Get Font() As Font
Attribute Font.VB_Description = "Returns a Font object."
Attribute Font.VB_UserMemId = -512
    Set Font = DTPicker1.Font
End Property

Public Property Set Font(ByVal New_Font As Font)
    Set DTPicker1.Font = New_Font
    PropertyChanged "Font"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=7,0,0,0
Public Property Get BackStyle() As Integer
Attribute BackStyle.VB_Description = "Indicates whether a Label or the background of a Shape is transparent or opaque."
    BackStyle = m_BackStyle
End Property

Public Property Let BackStyle(ByVal New_BackStyle As Integer)
    m_BackStyle = New_BackStyle
    PropertyChanged "BackStyle"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=7,0,0,0
Public Property Get BorderStyle() As Integer
Attribute BorderStyle.VB_Description = "Returns/sets the border style for an object."
    BorderStyle = m_BorderStyle
End Property

Public Property Let BorderStyle(ByVal New_BorderStyle As Integer)
    m_BorderStyle = New_BorderStyle
    PropertyChanged "BorderStyle"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,Refresh
Public Sub Refresh()
Attribute Refresh.VB_Description = "Forces a complete repaint of a form or control."
    DTPicker1.Refresh
End Sub

Private Sub DTPicker1_Click()
    RaiseEvent Click
End Sub

Private Sub DTPicker1_DblClick()
    RaiseEvent DblClick
End Sub

Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer)
    RaiseEvent KeyDown(KeyCode, Shift)
End Sub

Private Sub DTPicker1_KeyPress(KeyAscii As Integer)
    RaiseEvent KeyPress(KeyAscii)
End Sub

Private Sub DTPicker1_KeyUp(KeyCode As Integer, Shift As Integer)
    RaiseEvent KeyUp(KeyCode, Shift)
End Sub

Private Sub DTPicker1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    RaiseEvent MouseDown(Button, Shift, X, Y)
End Sub

Private Sub DTPicker1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    RaiseEvent MouseMove(Button, Shift, X, Y)
End Sub

Private Sub DTPicker1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    RaiseEvent MouseUp(Button, Shift, X, Y)
End Sub

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,WhatsThisHelpID
Public Property Get WhatsThisHelpID() As Long
Attribute WhatsThisHelpID.VB_Description = "Returns/sets an associated context number for an object."
    WhatsThisHelpID = DTPicker1.WhatsThisHelpID
End Property

Public Property Let WhatsThisHelpID(ByVal New_WhatsThisHelpID As Long)
    DTPicker1.WhatsThisHelpID() = New_WhatsThisHelpID
    PropertyChanged "WhatsThisHelpID"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,Value
Public Property Get Value() As Variant
Attribute Value.VB_Description = "Returns/sets the current date."
    Value = DTPicker1.Value
End Property

Public Property Let Value(ByVal New_Value As Variant)
    'The control only accepts Visual Basic Nulls, any other kind of null coming in fails.
    If IsNull(New_Value) Then
        DTPicker1.CheckBox() = True
        DTPicker1.Value() = Null
    Else
        DTPicker1.Value() = New_Value
    End If
        
    PropertyChanged "Value"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=5
Public Sub ValidateControls()
Attribute ValidateControls.VB_Description = "Validate contents of the last control on the form before exiting the form"
     
End Sub

Private Sub DTPicker1_Validate(Cancel As Boolean)
    RaiseEvent Validate(Cancel)
End Sub

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,UpDown
Public Property Get UpDown() As Boolean
Attribute UpDown.VB_Description = "Returns/sets a value that determines whether an updown (spin) button is used to modify dates instead of a dropdown calendar."
    UpDown = DTPicker1.UpDown
End Property

Public Property Let UpDown(ByVal New_UpDown As Boolean)
    DTPicker1.UpDown() = New_UpDown
    PropertyChanged "UpDown"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,ToolTipText
Public Property Get ToolTipText() As String
Attribute ToolTipText.VB_Description = "Returns/sets the text displayed when the mouse is paused over the control."
    ToolTipText = DTPicker1.ToolTipText
End Property

Public Property Let ToolTipText(ByVal New_ToolTipText As String)
    DTPicker1.ToolTipText() = New_ToolTipText
    PropertyChanged "ToolTipText"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=12
Public Function TextWidth(ByVal Str As String) As Single
Attribute TextWidth.VB_Description = "Returns the width of a text string as it would be printed in the current font."

End Function

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=12
Public Function TextHeight(ByVal Str As String) As Single
Attribute TextHeight.VB_Description = "Returns the height of a text string as it would be printed in the current font."

End Function

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=5
Public Sub Size(ByVal Width As Single, ByVal Height As Single)
Attribute Size.VB_Description = "Changes the width and height of a User Control."
     DTPicker1.Width = Width
     DTPicker1.Height = Height
End Sub

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=12
Public Function ScaleY(ByVal Height As Single, Optional ByVal FromScale As Variant, Optional ByVal ToScale As Variant) As Single
Attribute ScaleY.VB_Description = "Converts the value for the height of a Form, PictureBox, or Printer from one unit of measure to another."

End Function

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=12
Public Function ScaleX(ByVal Width As Single, Optional ByVal FromScale As Variant, Optional ByVal ToScale As Variant) As Single
Attribute ScaleX.VB_Description = "Converts the value for the width of a Form, PictureBox, or Printer from one unit of measure to another."

End Function

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=12,0,0,0
Public Property Get ScaleWidth() As Single
Attribute ScaleWidth.VB_Description = "Returns/sets the number of units for the horizontal measurement of an object's interior."
    ScaleWidth = m_ScaleWidth
End Property

Public Property Let ScaleWidth(ByVal New_ScaleWidth As Single)
    m_ScaleWidth = New_ScaleWidth
    PropertyChanged "ScaleWidth"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=12,0,0,0
Public Property Get ScaleTop() As Single
Attribute ScaleTop.VB_Description = "Returns/sets the vertical coordinates for the top edges of an object."
    ScaleTop = m_ScaleTop
End Property

Public Property Let ScaleTop(ByVal New_ScaleTop As Single)
    m_ScaleTop = New_ScaleTop
    PropertyChanged "ScaleTop"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=7,0,0,0
Public Property Get ScaleMode() As Integer
Attribute ScaleMode.VB_Description = "Returns/sets a value indicating measurement units for object coordinates when using graphics methods or positioning controls."
    ScaleMode = m_ScaleMode
End Property

Public Property Let ScaleMode(ByVal New_ScaleMode As Integer)
    m_ScaleMode = New_ScaleMode
    PropertyChanged "ScaleMode"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=12,0,0,0
Public Property Get ScaleLeft() As Single
Attribute ScaleLeft.VB_Description = "Returns/sets the horizontal coordinates for the left edges of an object."
    ScaleLeft = m_ScaleLeft
End Property

Public Property Let ScaleLeft(ByVal New_ScaleLeft As Single)
    m_ScaleLeft = New_ScaleLeft
    PropertyChanged "ScaleLeft"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=12,0,0,0
Public Property Get ScaleHeight() As Single
Attribute ScaleHeight.VB_Description = "Returns/sets the number of units for the vertical measurement of an object's interior."
    ScaleHeight = m_ScaleHeight
End Property

Public Property Let ScaleHeight(ByVal New_ScaleHeight As Single)
    m_ScaleHeight = New_ScaleHeight
    PropertyChanged "ScaleHeight"
End Property

'The Underscore following "Scale" is necessary because it
'is a Reserved Word in VBA.
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=5
Public Sub Scale_(Optional X1 As Variant, Optional Y1 As Variant, Optional X2 As Variant, Optional Y2 As Variant)
    
End Sub

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=0,0,0,0
Public Property Get RightToLeft() As Boolean
Attribute RightToLeft.VB_Description = "Determines text display direction and control visual appearance on a bidirectional system."
    RightToLeft = m_RightToLeft
End Property

Public Property Let RightToLeft(ByVal New_RightToLeft As Boolean)
    m_RightToLeft = New_RightToLeft
    PropertyChanged "RightToLeft"
End Property

'The Underscore following "PSet" is necessary because it
'is a Reserved Word in VBA.
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=5
Public Sub PSet_(X As Single, Y As Single, Color As Long)
    
End Sub

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=5
Public Sub PopupMenu(ByVal Menu As Object, Optional ByVal Flags As Variant, Optional ByVal X As Variant, Optional ByVal Y As Variant, Optional ByVal DefaultMenu As Variant)
Attribute PopupMenu.VB_Description = "Displays a pop-up menu on an MDIForm or Form object."
     
End Sub

'The Underscore following "Point" is necessary because it
'is a Reserved Word in VBA.
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=8
Public Function Point(X As Single, Y As Single) As Long
Attribute Point.VB_Description = "Returns, as an integer of type Long, the RGB color of the specified point on a Form or PictureBox object."
    
End Function

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=11,0,0,0
Public Property Get Picture() As Picture
Attribute Picture.VB_Description = "Returns/sets a graphic to be displayed in a control."
    Set Picture = m_Picture
End Property

Public Property Set Picture(ByVal New_Picture As Picture)
    Set m_Picture = New_Picture
    PropertyChanged "Picture"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=7,0,0,0
Public Property Get PaletteMode() As Integer
Attribute PaletteMode.VB_Description = "Returns/sets a value that determines which palette to use for the controls on a object."
    PaletteMode = m_PaletteMode
End Property

Public Property Let PaletteMode(ByVal New_PaletteMode As Integer)
    m_PaletteMode = New_PaletteMode
    PropertyChanged "PaletteMode"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=11,0,0,0
Public Property Get Palette() As Picture
Attribute Palette.VB_Description = "Returns/sets an image that contains the palette to use on an object when PaletteMode is set to Custom"
    Set Palette = m_Palette
End Property

Public Property Set Palette(ByVal New_Palette As Picture)
    Set m_Palette = New_Palette
    PropertyChanged "Palette"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=5
Public Sub PaintPicture(ByVal Picture As Picture, ByVal X1 As Single, ByVal Y1 As Single, Optional ByVal Width1 As Variant, Optional ByVal Height1 As Variant, Optional ByVal X2 As Variant, Optional ByVal Y2 As Variant, Optional ByVal Width2 As Variant, Optional ByVal Height2 As Variant, Optional ByVal Opcode As Variant)
Attribute PaintPicture.VB_Description = "Draws the contents of a graphics file on a Form, PictureBox, or Printer object."
     
End Sub


'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,OLEDropMode
Public Property Get OLEDropMode() As OLEDropConstants
Attribute OLEDropMode.VB_Description = "Returns/Sets whether this control can act as an OLE drop target."
    OLEDropMode = DTPicker1.OLEDropMode
End Property

Public Property Let OLEDropMode(ByVal New_OLEDropMode As OLEDropConstants)
    DTPicker1.OLEDropMode() = New_OLEDropMode
    PropertyChanged "OLEDropMode"
End Property



'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,OLEDrag
Public Sub OLEDrag()
Attribute OLEDrag.VB_Description = "Starts an OLE drag/drop event with the given control as the source."
    DTPicker1.OLEDrag
End Sub

Private Sub DTPicker1_OLECompleteDrag(Effect As Long)
    RaiseEvent OLECompleteDrag(Effect)
End Sub

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,MousePointer
Public Property Get MousePointer() As MousePointerConstants
Attribute MousePointer.VB_Description = "Returns/sets the type of mouse pointer displayed when over part of an object."
    MousePointer = DTPicker1.MousePointer
End Property

Public Property Let MousePointer(ByVal New_MousePointer As MousePointerConstants)
    DTPicker1.MousePointer() = New_MousePointer
    PropertyChanged "MousePointer"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,MouseIcon
Public Property Get MouseIcon() As Picture
Attribute MouseIcon.VB_Description = "Sets a custom mouse icon."
    Set MouseIcon = DTPicker1.MouseIcon
End Property

Public Property Set MouseIcon(ByVal New_MouseIcon As Picture)
    Set DTPicker1.MouseIcon = New_MouseIcon
    PropertyChanged "MouseIcon"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,MinDate
Public Property Get MinDate() As Date
Attribute MinDate.VB_Description = "Returns/sets the earliest date that can be displayed or accepted by the control."
    MinDate = DTPicker1.MinDate
End Property

Public Property Let MinDate(ByVal New_MinDate As Date)
    DTPicker1.MinDate() = New_MinDate
    PropertyChanged "MinDate"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,MaxDate
Public Property Get MaxDate() As Date
Attribute MaxDate.VB_Description = "Returns/sets the latest date that can be displayed or accepted by the control."
    MaxDate = DTPicker1.MaxDate
End Property

Public Property Let MaxDate(ByVal New_MaxDate As Date)
    DTPicker1.MaxDate() = New_MaxDate
    PropertyChanged "MaxDate"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=11,0,0,0
Public Property Get MaskPicture() As Picture
Attribute MaskPicture.VB_Description = "Returns/sets the picture that specifies the clickable/drawable area of the control when BackStyle is 0 (transparent)."
    Set MaskPicture = m_MaskPicture
End Property

Public Property Set MaskPicture(ByVal New_MaskPicture As Picture)
    Set m_MaskPicture = New_MaskPicture
    PropertyChanged "MaskPicture"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=8,0,0,0
Public Property Get MaskColor() As Long
Attribute MaskColor.VB_Description = "Returns/sets the color that specifies transparent areas in the MaskPicture."
    MaskColor = m_MaskColor
End Property

Public Property Let MaskColor(ByVal New_MaskColor As Long)
    m_MaskColor = New_MaskColor
    PropertyChanged "MaskColor"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=5
Public Sub Line(ByVal Flags As Integer, ByVal X1 As Single, ByVal Y1 As Single, ByVal X2 As Single, ByVal Y2 As Single, ByVal Color As Long)
Attribute Line.VB_Description = "Draws lines and rectangles on an object."
     
End Sub

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=11,0,0,0
Public Property Get Image() As Picture
Attribute Image.VB_Description = "Returns a handle, provided by Microsoft Windows, to a persistent bitmap."
    Set Image = m_Image
End Property

Public Property Set Image(ByVal New_Image As Picture)
    Set m_Image = New_Image
    PropertyChanged "Image"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=20,0,0,0
Public Property Get HyperLink() As HyperLink
Attribute HyperLink.VB_Description = "Returns a Hyperlink object used for browser style navigation."
    Set HyperLink = m_HyperLink
End Property

Public Property Set HyperLink(ByVal New_HyperLink As HyperLink)
    Set m_HyperLink = New_HyperLink
    PropertyChanged "HyperLink"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=8,0,0,0
Public Property Get hWnd() As Long
Attribute hWnd.VB_Description = "Returns a handle (from Microsoft Windows) to an object's window."
    hWnd = m_hWnd
End Property

Public Property Let hWnd(ByVal New_hWnd As Long)
    m_hWnd = New_hWnd
    PropertyChanged "hWnd"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=7,0,0,0
Public Property Get HitBehavior() As Integer
Attribute HitBehavior.VB_Description = "Indicates which mode of automatic hit testing a windowless UserControl employs."
    HitBehavior = m_HitBehavior
End Property

Public Property Let HitBehavior(ByVal New_HitBehavior As Integer)
    m_HitBehavior = New_HitBehavior
    PropertyChanged "HitBehavior"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=8,0,0,0
Public Property Get hDC() As Long
Attribute hDC.VB_Description = "Returns a handle (from Microsoft Windows) to the object's device context."
    hDC = m_hDC
End Property

Public Property Let hDC(ByVal New_hDC As Long)
    m_hDC = New_hDC
    PropertyChanged "hDC"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=0,0,0,0
Public Property Get HasDC() As Boolean
Attribute HasDC.VB_Description = "Determines whether a unique display context is allocated for the control."
    HasDC = m_HasDC
End Property

Public Property Let HasDC(ByVal New_HasDC As Boolean)
    m_HasDC = New_HasDC
    PropertyChanged "HasDC"
End Property

Private Sub DTPicker1_FormatSize(ByVal CallbackField As String, Size As Integer)
    RaiseEvent FormatSize(CallbackField, Size)
End Sub

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,Format
Public Property Get Format() As FormatConstants
Attribute Format.VB_Description = "Determines whether dates and times are displayed using standard or custom formatting."
    Format = DTPicker1.Format
End Property

Public Property Let Format(ByVal New_Format As FormatConstants)
    DTPicker1.Format() = New_Format
    PropertyChanged "Format"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=0,0,0,0
Public Property Get FontUnderline() As Boolean
Attribute FontUnderline.VB_Description = "Returns/sets underline font styles."
    FontUnderline = m_FontUnderline
End Property

Public Property Let FontUnderline(ByVal New_FontUnderline As Boolean)
    m_FontUnderline = New_FontUnderline
    PropertyChanged "FontUnderline"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=0,0,0,0
Public Property Get FontTransparent() As Boolean
Attribute FontTransparent.VB_Description = "Returns/sets a value that determines whether background text/graphics on a Form, Printer or PictureBox are displayed."
    FontTransparent = m_FontTransparent
End Property

Public Property Let FontTransparent(ByVal New_FontTransparent As Boolean)
    m_FontTransparent = New_FontTransparent
    PropertyChanged "FontTransparent"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=0,0,0,0
Public Property Get FontStrikethru() As Boolean
Attribute FontStrikethru.VB_Description = "Returns/sets strikethrough font styles."
    FontStrikethru = m_FontStrikethru
End Property

Public Property Let FontStrikethru(ByVal New_FontStrikethru As Boolean)
    m_FontStrikethru = New_FontStrikethru
    PropertyChanged "FontStrikethru"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=12,0,0,0
Public Property Get FontSize() As Single
Attribute FontSize.VB_Description = "Specifies the size (in points) of the font that appears in each row for the given level."
    FontSize = m_FontSize
End Property

Public Property Let FontSize(ByVal New_FontSize As Single)
    m_FontSize = New_FontSize
    PropertyChanged "FontSize"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=13,0,0,
Public Property Get FontName() As String
Attribute FontName.VB_Description = "Specifies the name of the font that appears in each row for the given level."
    FontName = m_FontName
End Property

Public Property Let FontName(ByVal New_FontName As String)
    m_FontName = New_FontName
    PropertyChanged "FontName"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=0,0,0,0
Public Property Get FontItalic() As Boolean
Attribute FontItalic.VB_Description = "Returns/sets italic font styles."
    FontItalic = m_FontItalic
End Property

Public Property Let FontItalic(ByVal New_FontItalic As Boolean)
    m_FontItalic = New_FontItalic
    PropertyChanged "FontItalic"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=0,0,0,0
Public Property Get FontBold() As Boolean
Attribute FontBold.VB_Description = "Returns/sets bold font styles."
    FontBold = m_FontBold
End Property

Public Property Let FontBold(ByVal New_FontBold As Boolean)
    m_FontBold = New_FontBold
    PropertyChanged "FontBold"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=7,0,0,0
Public Property Get FillStyle() As Integer
Attribute FillStyle.VB_Description = "Returns/sets the fill style of a shape."
    FillStyle = m_FillStyle
End Property

Public Property Let FillStyle(ByVal New_FillStyle As Integer)
    m_FillStyle = New_FillStyle
    PropertyChanged "FillStyle"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=8,0,0,0
Public Property Get FillColor() As Long
Attribute FillColor.VB_Description = "Returns/sets the color used to fill in shapes, circles, and boxes."
    FillColor = m_FillColor
End Property

Public Property Let FillColor(ByVal New_FillColor As Long)
    m_FillColor = New_FillColor
    PropertyChanged "FillColor"
End Property

Private Sub DTPicker1_DropDown()
    RaiseEvent DropDown
End Sub

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=7,0,0,0
Public Property Get DrawWidth() As Integer
Attribute DrawWidth.VB_Description = "Returns/sets the line width for output from graphics methods."
    DrawWidth = m_DrawWidth
End Property

Public Property Let DrawWidth(ByVal New_DrawWidth As Integer)
    m_DrawWidth = New_DrawWidth
    PropertyChanged "DrawWidth"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=7,0,0,0
Public Property Get DrawStyle() As Integer
Attribute DrawStyle.VB_Description = "Determines the line style for output from graphics methods."
    DrawStyle = m_DrawStyle
End Property

Public Property Let DrawStyle(ByVal New_DrawStyle As Integer)
    m_DrawStyle = New_DrawStyle
    PropertyChanged "DrawStyle"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=7,0,0,0
Public Property Get DrawMode() As Integer
Attribute DrawMode.VB_Description = "Sets the appearance of output from graphics methods or of a Shape or Line control."
    DrawMode = m_DrawMode
End Property

Public Property Let DrawMode(ByVal New_DrawMode As Integer)
    m_DrawMode = New_DrawMode
    PropertyChanged "DrawMode"
End Property


'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=5
Public Sub DataMemberChanged(ByVal DataMember As String)
Attribute DataMemberChanged.VB_Description = "Notify data consumers that a data member of this data source has changed."
     
End Sub

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,DataMember
Public Property Get DataMember() As String
Attribute DataMember.VB_Description = "Returns/sets a value that describes the DataMember for a data connection."
    DataMember = DTPicker1.DataMember
End Property

Public Property Let DataMember(ByVal New_DataMember As String)
    DTPicker1.DataMember() = New_DataMember
    PropertyChanged "DataMember"
End Property


'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,DataBindings
Public Property Get DataBindings() As DataBindings
Attribute DataBindings.VB_Description = "Returns/sets a DataBindings collection object that collects the bindable properties that are available to the developer."
    Set DataBindings = DTPicker1.DataBindings
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,CustomFormat
Public Property Get CustomFormat() As String
Attribute CustomFormat.VB_Description = "Returns/sets the custom format string used to format the date and/or time displayed in the control."
    CustomFormat = DTPicker1.CustomFormat
End Property

Public Property Let CustomFormat(ByVal New_CustomFormat As String)
    DTPicker1.CustomFormat() = New_CustomFormat
    PropertyChanged "CustomFormat"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=12,0,0,0
Public Property Get CurrentY() As Single
Attribute CurrentY.VB_Description = "Returns/sets the vertical coordinates for next print or draw method."
    CurrentY = m_CurrentY
End Property

Public Property Let CurrentY(ByVal New_CurrentY As Single)
    m_CurrentY = New_CurrentY
    PropertyChanged "CurrentY"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=12,0,0,0
Public Property Get CurrentX() As Single
Attribute CurrentX.VB_Description = "Returns/sets the horizontal coordinates for next print or draw method."
    CurrentX = m_CurrentX
End Property

Public Property Let CurrentX(ByVal New_CurrentX As Single)
    m_CurrentX = New_CurrentX
    PropertyChanged "CurrentX"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=9,0,0,0
Public Property Get Controls() As Object
Attribute Controls.VB_Description = "A collection whose elements represent each control on a form, including elements of control arrays. "
    Set Controls = m_Controls
End Property

Public Property Set Controls(ByVal New_Controls As Object)
    Set m_Controls = New_Controls
    PropertyChanged "Controls"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=8,0,0,0
Public Property Get ContainerHwnd() As Long
Attribute ContainerHwnd.VB_Description = "Returns a handle (from Microsoft Windows) to the window a UserControl is contained in."
    ContainerHwnd = m_ContainerHwnd
End Property

Public Property Let ContainerHwnd(ByVal New_ContainerHwnd As Long)
    m_ContainerHwnd = New_ContainerHwnd
    PropertyChanged "ContainerHwnd"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=5
Public Sub Cls()
Attribute Cls.VB_Description = "Clears graphics and text generated at run time from a Form, Image, or PictureBox."
     
End Sub

Private Sub DTPicker1_CloseUp()
    RaiseEvent CloseUp
End Sub

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=0,0,0,0
Public Property Get ClipControls() As Boolean
Attribute ClipControls.VB_Description = "Determines whether graphics methods in Paint events repaint an entire object or newly exposed areas."
    ClipControls = m_ClipControls
End Property

Public Property Let ClipControls(ByVal New_ClipControls As Boolean)
    m_ClipControls = New_ClipControls
    PropertyChanged "ClipControls"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=7,0,0,0
Public Property Get ClipBehavior() As Integer
Attribute ClipBehavior.VB_Description = "Indicates the manner in which a windowless UserControl's appearance is clipped."
    ClipBehavior = m_ClipBehavior
End Property

Public Property Let ClipBehavior(ByVal New_ClipBehavior As Integer)
    m_ClipBehavior = New_ClipBehavior
    PropertyChanged "ClipBehavior"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,CheckBox
Public Property Get CheckBox() As Boolean
Attribute CheckBox.VB_Description = "Returns/sets whether the control displays a checkbox to the left of the date. When unchecked, no date is selected."
    CheckBox = DTPicker1.CheckBox
End Property

Public Property Let CheckBox(ByVal New_CheckBox As Boolean)
    DTPicker1.CheckBox() = New_CheckBox
    PropertyChanged "CheckBox"
End Property

Private Sub DTPicker1_Change()
    RaiseEvent Change
End Sub

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,CausesValidation
Public Property Get CausesValidation() As Boolean
Attribute CausesValidation.VB_Description = "Returns/sets whether validation occurs on the control which lost focus."
    CausesValidation = DTPicker1.CausesValidation
End Property

Public Property Let CausesValidation(ByVal New_CausesValidation As Boolean)
    DTPicker1.CausesValidation() = New_CausesValidation
    PropertyChanged "CausesValidation"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=0
Public Function CanPropertyChange(ByVal PropertyName As String) As Boolean
Attribute CanPropertyChange.VB_Description = "Asks the container if a property bound to a data source can be changed.  The CanPropertyChange method is most useful if the property specified in PropertyName is bound to a data source."

End Function

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=5
Public Sub CancelAsyncRead(Optional ByVal Property As Variant)
Attribute CancelAsyncRead.VB_Description = "Cancel an asynchronous data request."
     
End Sub

Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
    RaiseEvent CallbackKeyDown(KeyCode, Shift, CallbackField, CallbackDate)
End Sub

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,CalendarTrailingForeColor
Public Property Get CalendarTrailingForeColor() As Long
Attribute CalendarTrailingForeColor.VB_Description = "Returns/sets the foreground color used to display the days at the beginning and end of the dropdown calendar that are from previous and following months."
    CalendarTrailingForeColor = DTPicker1.CalendarTrailingForeColor
End Property

Public Property Let CalendarTrailingForeColor(ByVal New_CalendarTrailingForeColor As Long)
    DTPicker1.CalendarTrailingForeColor() = New_CalendarTrailingForeColor
    PropertyChanged "CalendarTrailingForeColor"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,CalendarTitleForeColor
Public Property Get CalendarTitleForeColor() As Long
Attribute CalendarTitleForeColor.VB_Description = "Returns/sets the foreground color used to display the title portion of the dropdown calendar."
    CalendarTitleForeColor = DTPicker1.CalendarTitleForeColor
End Property

Public Property Let CalendarTitleForeColor(ByVal New_CalendarTitleForeColor As Long)
    DTPicker1.CalendarTitleForeColor() = New_CalendarTitleForeColor
    PropertyChanged "CalendarTitleForeColor"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,CalendarTitleBackColor
Public Property Get CalendarTitleBackColor() As Long
Attribute CalendarTitleBackColor.VB_Description = "Returns/sets the background color used to display the title portion of the dropdown calendar."
    CalendarTitleBackColor = DTPicker1.CalendarTitleBackColor
End Property

Public Property Let CalendarTitleBackColor(ByVal New_CalendarTitleBackColor As Long)
    DTPicker1.CalendarTitleBackColor() = New_CalendarTitleBackColor
    PropertyChanged "CalendarTitleBackColor"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,CalendarForeColor
Public Property Get CalendarForeColor() As Long
Attribute CalendarForeColor.VB_Description = "Returns/sets the foreground color used to display text in the month portion of the dropdown calendar."
    CalendarForeColor = DTPicker1.CalendarForeColor
End Property

Public Property Let CalendarForeColor(ByVal New_CalendarForeColor As Long)
    DTPicker1.CalendarForeColor() = New_CalendarForeColor
    PropertyChanged "CalendarForeColor"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=DTPicker1,DTPicker1,-1,CalendarBackColor
Public Property Get CalendarBackColor() As Long
Attribute CalendarBackColor.VB_Description = "Returns/sets the background color used to display the month portion of the dropdown calendar."
    CalendarBackColor = DTPicker1.CalendarBackColor
End Property

Public Property Let CalendarBackColor(ByVal New_CalendarBackColor As Long)
    DTPicker1.CalendarBackColor() = New_CalendarBackColor
    PropertyChanged "CalendarBackColor"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=0,0,0,0
Public Property Get AutoRedraw() As Boolean
Attribute AutoRedraw.VB_Description = "Returns/sets the output from a graphics method to a persistent bitmap."
    AutoRedraw = m_AutoRedraw
End Property

Public Property Let AutoRedraw(ByVal New_AutoRedraw As Boolean)
    m_AutoRedraw = New_AutoRedraw
    PropertyChanged "AutoRedraw"
End Property


'The Underscore following "Circle" is necessary because it
'is a Reserved Word in VBA.
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=5
Public Sub Circle_(X As Single, Y As Single, Radius As Single, Color As Long, StartPos As Single, EndPos As Single, Aspect As Single)
    
End Sub

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=16,0,0,0
Public Property Get DataMembers() As DataMembers
    'Attribute DataMembers.VB_Description = "Returns a collection of data members to show at design time for this data source."
    Set DataMembers = m_DataMembers
End Property

Public Property Set DataMembers(ByVal New_DataMembers As DataMembers)
    Set m_DataMembers = New_DataMembers
    PropertyChanged "DataMembers"
End Property
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=5
Public Sub AsyncRead(ByVal Target As String, ByVal AsyncType As Long, Optional ByVal PropertyName As Variant, Optional ByVal AsyncReadOptions As Variant)
Attribute AsyncRead.VB_Description = "Read in data asynchronously from a path or a URL and receive AsyncReadComplete event."
     
End Sub

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=7,0,0,0
Public Property Get Appearance() As Integer
Attribute Appearance.VB_Description = "Returns/sets whether or not an object is painted at run time with 3-D effects."
    Appearance = m_Appearance
End Property

Public Property Let Appearance(ByVal New_Appearance As Integer)
    m_Appearance = New_Appearance
    PropertyChanged "Appearance"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=15,0,0,0
Public Property Get ActiveControl() As Object
Attribute ActiveControl.VB_Description = "Returns the control that has focus."
    Set ActiveControl = m_ActiveControl
End Property


'Initialize Properties for User Control
Private Sub UserControl_InitProperties()
    m_BackColor = m_def_BackColor
    m_ForeColor = m_def_ForeColor
    m_BackStyle = m_def_BackStyle
    m_BorderStyle = m_def_BorderStyle
    m_ScaleWidth = m_def_ScaleWidth
    m_ScaleTop = m_def_ScaleTop
    m_ScaleMode = m_def_ScaleMode
    m_ScaleLeft = m_def_ScaleLeft
    m_ScaleHeight = m_def_ScaleHeight
    m_RightToLeft = m_def_RightToLeft
    Set m_Picture = LoadPicture("")
    m_PaletteMode = m_def_PaletteMode
    Set m_Palette = LoadPicture("")
    Set m_MaskPicture = LoadPicture("")
    m_MaskColor = m_def_MaskColor
    Set m_Image = LoadPicture("")
    m_hWnd = m_def_hWnd
    m_HitBehavior = m_def_HitBehavior
    m_hDC = m_def_hDC
    m_HasDC = m_def_HasDC
    m_FontUnderline = m_def_FontUnderline
    m_FontTransparent = m_def_FontTransparent
    m_FontStrikethru = m_def_FontStrikethru
    m_FontSize = m_def_FontSize
    m_FontName = m_def_FontName
    m_FontItalic = m_def_FontItalic
    m_FontBold = m_def_FontBold
    m_FillStyle = m_def_FillStyle
    m_FillColor = m_def_FillColor
    m_DrawWidth = m_def_DrawWidth
    m_DrawStyle = m_def_DrawStyle
    m_DrawMode = m_def_DrawMode
    m_CurrentY = m_def_CurrentY
    m_CurrentX = m_def_CurrentX
    m_ContainerHwnd = m_def_ContainerHwnd
    m_ClipControls = m_def_ClipControls
    m_ClipBehavior = m_def_ClipBehavior
    m_AutoRedraw = m_def_AutoRedraw
    m_Appearance = m_def_Appearance
End Sub

'Load property values from storage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

    m_BackColor = PropBag.ReadProperty("BackColor", m_def_BackColor)
    m_ForeColor = PropBag.ReadProperty("ForeColor", m_def_ForeColor)
    DTPicker1.Enabled = PropBag.ReadProperty("Enabled", True)
    Set DTPicker1.Font = PropBag.ReadProperty("Font", Ambient.Font)
    m_BackStyle = PropBag.ReadProperty("BackStyle", m_def_BackStyle)
    m_BorderStyle = PropBag.ReadProperty("BorderStyle", m_def_BorderStyle)
    DTPicker1.WhatsThisHelpID = PropBag.ReadProperty("WhatsThisHelpID", 0)
    DTPicker1.Value = PropBag.ReadProperty("Value", 7 / 4 / 2008)
    DTPicker1.UpDown = PropBag.ReadProperty("UpDown", False)
    DTPicker1.ToolTipText = PropBag.ReadProperty("ToolTipText", "")
    m_ScaleWidth = PropBag.ReadProperty("ScaleWidth", m_def_ScaleWidth)
    m_ScaleTop = PropBag.ReadProperty("ScaleTop", m_def_ScaleTop)
    m_ScaleMode = PropBag.ReadProperty("ScaleMode", m_def_ScaleMode)
    m_ScaleLeft = PropBag.ReadProperty("ScaleLeft", m_def_ScaleLeft)
    m_ScaleHeight = PropBag.ReadProperty("ScaleHeight", m_def_ScaleHeight)
    m_RightToLeft = PropBag.ReadProperty("RightToLeft", m_def_RightToLeft)
    Set m_Picture = PropBag.ReadProperty("Picture", Nothing)
    m_PaletteMode = PropBag.ReadProperty("PaletteMode", m_def_PaletteMode)
    Set m_Palette = PropBag.ReadProperty("Palette", Nothing)
    DTPicker1.OLEDropMode = PropBag.ReadProperty("OLEDropMode", 0)
    DTPicker1.MousePointer = PropBag.ReadProperty("MousePointer", 0)
    Set MouseIcon = PropBag.ReadProperty("MouseIcon", Nothing)
    DTPicker1.MinDate = PropBag.ReadProperty("MinDate", 1 / 1 / 1601)
    DTPicker1.MaxDate = PropBag.ReadProperty("MaxDate", 31 / 12 / 9999)
    Set m_MaskPicture = PropBag.ReadProperty("MaskPicture", Nothing)
    m_MaskColor = PropBag.ReadProperty("MaskColor", m_def_MaskColor)
    Set m_Image = PropBag.ReadProperty("Image", Nothing)
    Set m_HyperLink = PropBag.ReadProperty("HyperLink", Nothing)
    m_hWnd = PropBag.ReadProperty("hWnd", m_def_hWnd)
    m_HitBehavior = PropBag.ReadProperty("HitBehavior", m_def_HitBehavior)
    m_hDC = PropBag.ReadProperty("hDC", m_def_hDC)
    m_HasDC = PropBag.ReadProperty("HasDC", m_def_HasDC)
    DTPicker1.Format = PropBag.ReadProperty("Format", 1)
    m_FontUnderline = PropBag.ReadProperty("FontUnderline", m_def_FontUnderline)
    m_FontTransparent = PropBag.ReadProperty("FontTransparent", m_def_FontTransparent)
    m_FontStrikethru = PropBag.ReadProperty("FontStrikethru", m_def_FontStrikethru)
    m_FontSize = PropBag.ReadProperty("FontSize", m_def_FontSize)
    m_FontName = PropBag.ReadProperty("FontName", m_def_FontName)
    m_FontItalic = PropBag.ReadProperty("FontItalic", m_def_FontItalic)
    m_FontBold = PropBag.ReadProperty("FontBold", m_def_FontBold)
    m_FillStyle = PropBag.ReadProperty("FillStyle", m_def_FillStyle)
    m_FillColor = PropBag.ReadProperty("FillColor", m_def_FillColor)
    m_DrawWidth = PropBag.ReadProperty("DrawWidth", m_def_DrawWidth)
    m_DrawStyle = PropBag.ReadProperty("DrawStyle", m_def_DrawStyle)
    m_DrawMode = PropBag.ReadProperty("DrawMode", m_def_DrawMode)
    Set DataSource = PropBag.ReadProperty("DataSource", Nothing)
    Set m_DataMembers = PropBag.ReadProperty("DataMembers", Nothing)
    DTPicker1.DataMember = PropBag.ReadProperty("DataMember", "")
    Set DataFormat = PropBag.ReadProperty("DataFormat", Nothing)
    DTPicker1.CustomFormat = PropBag.ReadProperty("CustomFormat", "")
    m_CurrentY = PropBag.ReadProperty("CurrentY", m_def_CurrentY)
    m_CurrentX = PropBag.ReadProperty("CurrentX", m_def_CurrentX)
    Set m_Controls = PropBag.ReadProperty("Controls", Nothing)
    m_ContainerHwnd = PropBag.ReadProperty("ContainerHwnd", m_def_ContainerHwnd)
    m_ClipControls = PropBag.ReadProperty("ClipControls", m_def_ClipControls)
    m_ClipBehavior = PropBag.ReadProperty("ClipBehavior", m_def_ClipBehavior)
    DTPicker1.CheckBox = PropBag.ReadProperty("CheckBox", True)
    DTPicker1.CausesValidation = PropBag.ReadProperty("CausesValidation", True)
    DTPicker1.CalendarTrailingForeColor = PropBag.ReadProperty("CalendarTrailingForeColor", 2147483665#)
    DTPicker1.CalendarTitleForeColor = PropBag.ReadProperty("CalendarTitleForeColor", 2147483666#)
    DTPicker1.CalendarTitleBackColor = PropBag.ReadProperty("CalendarTitleBackColor", 2147483663#)
    DTPicker1.CalendarForeColor = PropBag.ReadProperty("CalendarForeColor", 2147483666#)
    DTPicker1.CalendarBackColor = PropBag.ReadProperty("CalendarBackColor", 2147483653#)
    m_AutoRedraw = PropBag.ReadProperty("AutoRedraw", m_def_AutoRedraw)
    m_Appearance = PropBag.ReadProperty("Appearance", m_def_Appearance)
    Set m_ActiveControl = PropBag.ReadProperty("ActiveControl", Nothing)
End Sub

'Write property values to storage
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

    Call PropBag.WriteProperty("BackColor", m_BackColor, m_def_BackColor)
    Call PropBag.WriteProperty("ForeColor", m_ForeColor, m_def_ForeColor)
    Call PropBag.WriteProperty("Enabled", DTPicker1.Enabled, True)
    Call PropBag.WriteProperty("Font", DTPicker1.Font, Ambient.Font)
    Call PropBag.WriteProperty("BackStyle", m_BackStyle, m_def_BackStyle)
    Call PropBag.WriteProperty("BorderStyle", m_BorderStyle, m_def_BorderStyle)
    Call PropBag.WriteProperty("WhatsThisHelpID", DTPicker1.WhatsThisHelpID, 0)
    Call PropBag.WriteProperty("Value", DTPicker1.Value, 7 / 4 / 2008)
    Call PropBag.WriteProperty("UpDown", DTPicker1.UpDown, False)
    Call PropBag.WriteProperty("ToolTipText", DTPicker1.ToolTipText, "")
    Call PropBag.WriteProperty("ScaleWidth", m_ScaleWidth, m_def_ScaleWidth)
    Call PropBag.WriteProperty("ScaleTop", m_ScaleTop, m_def_ScaleTop)
    Call PropBag.WriteProperty("ScaleMode", m_ScaleMode, m_def_ScaleMode)
    Call PropBag.WriteProperty("ScaleLeft", m_ScaleLeft, m_def_ScaleLeft)
    Call PropBag.WriteProperty("ScaleHeight", m_ScaleHeight, m_def_ScaleHeight)
    Call PropBag.WriteProperty("RightToLeft", m_RightToLeft, m_def_RightToLeft)
    Call PropBag.WriteProperty("Picture", m_Picture, Nothing)
    Call PropBag.WriteProperty("PaletteMode", m_PaletteMode, m_def_PaletteMode)
    Call PropBag.WriteProperty("Palette", m_Palette, Nothing)
    Call PropBag.WriteProperty("OLEDropMode", DTPicker1.OLEDropMode, 0)
    Call PropBag.WriteProperty("MousePointer", DTPicker1.MousePointer, 0)
    Call PropBag.WriteProperty("MouseIcon", MouseIcon, Nothing)
    Call PropBag.WriteProperty("MinDate", DTPicker1.MinDate, 1 / 1 / 1601)
    Call PropBag.WriteProperty("MaxDate", DTPicker1.MaxDate, 31 / 12 / 9999)
    Call PropBag.WriteProperty("MaskPicture", m_MaskPicture, Nothing)
    Call PropBag.WriteProperty("MaskColor", m_MaskColor, m_def_MaskColor)
    Call PropBag.WriteProperty("Image", m_Image, Nothing)
    Call PropBag.WriteProperty("HyperLink", m_HyperLink, Nothing)
    Call PropBag.WriteProperty("hWnd", m_hWnd, m_def_hWnd)
    Call PropBag.WriteProperty("HitBehavior", m_HitBehavior, m_def_HitBehavior)
    Call PropBag.WriteProperty("hDC", m_hDC, m_def_hDC)
    Call PropBag.WriteProperty("HasDC", m_HasDC, m_def_HasDC)
    Call PropBag.WriteProperty("Format", DTPicker1.Format, 1)
    Call PropBag.WriteProperty("FontUnderline", m_FontUnderline, m_def_FontUnderline)
    Call PropBag.WriteProperty("FontTransparent", m_FontTransparent, m_def_FontTransparent)
    Call PropBag.WriteProperty("FontStrikethru", m_FontStrikethru, m_def_FontStrikethru)
    Call PropBag.WriteProperty("FontSize", m_FontSize, m_def_FontSize)
    Call PropBag.WriteProperty("FontName", m_FontName, m_def_FontName)
    Call PropBag.WriteProperty("FontItalic", m_FontItalic, m_def_FontItalic)
    Call PropBag.WriteProperty("FontBold", m_FontBold, m_def_FontBold)
    Call PropBag.WriteProperty("FillStyle", m_FillStyle, m_def_FillStyle)
    Call PropBag.WriteProperty("FillColor", m_FillColor, m_def_FillColor)
    Call PropBag.WriteProperty("DrawWidth", m_DrawWidth, m_def_DrawWidth)
    Call PropBag.WriteProperty("DrawStyle", m_DrawStyle, m_def_DrawStyle)
    Call PropBag.WriteProperty("DrawMode", m_DrawMode, m_def_DrawMode)
    Call PropBag.WriteProperty("DataSource", DataSource, Nothing)
    Call PropBag.WriteProperty("DataMembers", m_DataMembers, Nothing)
    Call PropBag.WriteProperty("DataMember", DTPicker1.DataMember, "")
    Call PropBag.WriteProperty("DataFormat", DataFormat, Nothing)
    Call PropBag.WriteProperty("CustomFormat", DTPicker1.CustomFormat, "")
    Call PropBag.WriteProperty("CurrentY", m_CurrentY, m_def_CurrentY)
    Call PropBag.WriteProperty("CurrentX", m_CurrentX, m_def_CurrentX)
    Call PropBag.WriteProperty("Controls", m_Controls, Nothing)
    Call PropBag.WriteProperty("ContainerHwnd", m_ContainerHwnd, m_def_ContainerHwnd)
    Call PropBag.WriteProperty("ClipControls", m_ClipControls, m_def_ClipControls)
    Call PropBag.WriteProperty("ClipBehavior", m_ClipBehavior, m_def_ClipBehavior)
    Call PropBag.WriteProperty("CheckBox", DTPicker1.CheckBox, True)
    Call PropBag.WriteProperty("CausesValidation", DTPicker1.CausesValidation, True)
    Call PropBag.WriteProperty("CalendarTrailingForeColor", DTPicker1.CalendarTrailingForeColor, 2147483665#)
    Call PropBag.WriteProperty("CalendarTitleForeColor", DTPicker1.CalendarTitleForeColor, 2147483666#)
    Call PropBag.WriteProperty("CalendarTitleBackColor", DTPicker1.CalendarTitleBackColor, 2147483663#)
    Call PropBag.WriteProperty("CalendarForeColor", DTPicker1.CalendarForeColor, 2147483666#)
    Call PropBag.WriteProperty("CalendarBackColor", DTPicker1.CalendarBackColor, 2147483653#)
    Call PropBag.WriteProperty("AutoRedraw", m_AutoRedraw, m_def_AutoRedraw)
    Call PropBag.WriteProperty("Appearance", m_Appearance, m_def_Appearance)
    Call PropBag.WriteProperty("ActiveControl", m_ActiveControl, Nothing)
End Sub

'Implementation of object safety as defined in Microsoft KB article Q182598
'   http://support.microsoft.com/kb/182598/EN-US/
'      How To Implement IObjectSafety in Visual Basic Controls

  Private Sub IObjectSafety_GetInterfaceSafetyOptions(ByVal riid As _
      Long, pdwSupportedOptions As Long, pdwEnabledOptions As Long)

          Dim Rc      As Long
          Dim rClsId  As udtGUID
          Dim IID     As String
          Dim bIID()  As Byte

          pdwSupportedOptions = INTERFACESAFE_FOR_UNTRUSTED_CALLER Or _
                                INTERFACESAFE_FOR_UNTRUSTED_DATA

          If (riid <> 0) Then
              CopyMemory rClsId, ByVal riid, Len(rClsId)

              bIID = String$(MAX_GUIDLEN, 0)
              Rc = StringFromGUID2(rClsId, VarPtr(bIID(0)), MAX_GUIDLEN)
              Rc = InStr(1, bIID, vbNullChar) - 1
              IID = Left$(UCase(bIID), Rc)

              Select Case IID
                  Case IID_IDispatch, IID_IDispatchEx
                      pdwEnabledOptions = IIf(m_fSafeForScripting, _
                    INTERFACESAFE_FOR_UNTRUSTED_CALLER, 0)
                      Exit Sub
                  Case IID_IPersistStorage, IID_IPersistStream, _
                     IID_IPersistPropertyBag
                      pdwEnabledOptions = IIf(m_fSafeForInitializing, _
                    INTERFACESAFE_FOR_UNTRUSTED_DATA, 0)
                      Exit Sub
                  Case Else
                      Err.Raise E_NOINTERFACE
                      Exit Sub
              End Select
          End If
      End Sub

      Private Sub IObjectSafety_SetInterfaceSafetyOptions(ByVal riid As _
      Long, ByVal dwOptionsSetMask As Long, ByVal dwEnabledOptions As Long)
          Dim Rc          As Long
          Dim rClsId      As udtGUID
          Dim IID         As String
          Dim bIID()      As Byte

          If (riid <> 0) Then
              CopyMemory rClsId, ByVal riid, Len(rClsId)

              bIID = String$(MAX_GUIDLEN, 0)
              Rc = StringFromGUID2(rClsId, VarPtr(bIID(0)), MAX_GUIDLEN)
              Rc = InStr(1, bIID, vbNullChar) - 1
              IID = Left$(UCase(bIID), Rc)

              Select Case IID
                  Case IID_IDispatch, IID_IDispatchEx
                      If ((dwEnabledOptions And dwOptionsSetMask) <> _
                   INTERFACESAFE_FOR_UNTRUSTED_CALLER) Then
                          Err.Raise E_FAIL
                          Exit Sub
                      Else
                          If Not m_fSafeForScripting Then
                              Err.Raise E_FAIL
                          End If
                          Exit Sub
                      End If

                  Case IID_IPersistStorage, IID_IPersistStream, _
                IID_IPersistPropertyBag
                      If ((dwEnabledOptions And dwOptionsSetMask) <> _
                    INTERFACESAFE_FOR_UNTRUSTED_DATA) Then
                          Err.Raise E_FAIL
                          Exit Sub
                      Else
                          If Not m_fSafeForInitializing Then
                              Err.Raise E_FAIL
                          End If
                          Exit Sub
                      End If

                  Case Else
                      Err.Raise E_NOINTERFACE
                      Exit Sub
              End Select
          End If
      End Sub
                

